# store datasets without imputations
tan_no_imp <- tan
tan2_no_imp <- tan2
tan3_no_imp <- tan3

# Tanzania 1
tan$police_satisfactory <- impute_via_bootstrap("police_satisfactory", data = tan)
tan$support_mob_driver <- impute_via_bootstrap("support_mob_driver", data = tan)

# Tanzania 2
tan2$beat_thief <- impute_via_bootstrap("beat_thief", data = tan2)
tan2$accusation_not_true <- impute_via_bootstrap("accusation_not_true", data = tan2)
tan2$afraid_accusation <- impute_via_bootstrap("afraid_accusation", data = tan2)

# Tanzania 3
tan3$beat_thief <- impute_via_bootstrap("beat_thief", data = tan3)
tan3$accusation_not_true <- impute_via_bootstrap("accusation_not_true", data = tan3)
tan3$afraid_accusation <- impute_via_bootstrap("afraid_accusation", data = tan3)
